home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000143_icon-group-sender _Thu Dec 17 16:31:54 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  2KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id QAA26266
  4.     for icon-group-addresses; Thu, 17 Dec 1998 16:31:48 -0700 (MST)
  5. Message-Id: <199812172331.QAA26266@baskerville.CS.Arizona.EDU>
  6. Date: Thu, 17 Dec 1998 14:21:23 -0700
  7. From: Steve Wampler <swampler@gemini.edu>
  8. X-Accept-Language: en
  9. To: icon-group@optima.CS.Arizona.EDU
  10. Subject: Re: Small Icon programming problem
  11. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  12. Status: RO
  13.  
  14. Ralph Griswold wrote:
  15. > 
  16. > Here's a small Icon programming problem for you to tackle:
  17. > 
  18. >         Write a procedure digsort(i) that returns the integer that
  19. >         results from sorting the digits of i, preserving sign.  For
  20. >         example, digsort(201) should return 12 and digsort(-1042)
  21. >         should return -124.  You may assume i is an integer.
  22. > 
  23. > You could aim for brevity, speed, and/or clarity.
  24. > 
  25. > Send solutions and comments to icon-group.  The most interesting
  26. > solutions will appear in a future issue of the Icon Analyst and
  27. > sent to icon-group as a package.
  28.  
  29. What a fun thing to play with!  Here's two more solutions. For
  30. my test cases these are the fastest I've been able to come up with.
  31. (I suspect there is a much faster approach involving map(), but
  32. this may just be a pipedream.)
  33.  
  34. The 2nd is slightly faster, but relies on the trick of returning
  35. a string that looks right (so it's hard to tell that it isn't
  36. returning an integer.)
  37.  
  38. Performance is affected by the choice of input.
  39.  
  40. procedure digsort(i)
  41.     local s, c
  42.  
  43.     s := ""
  44.     i := string(i)                              # convert to string
  45.     every c := !cset(i) do {                    # get correct order
  46.         every s ||:= (find(c,i) & c)            # get correct count
  47.         }
  48.  
  49.     return integer(s)                           # convert back to int
  50. end     
  51.  
  52. The next version is barely faster, due to a 'trick' and has an obscure bit
  53.     of code in cset(integer(cset(i))):
  54.  
  55. procedure digsort(i)
  56.     local s, c, j
  57.    
  58.     s := ""
  59.     i := string(i)                              # convert to string
  60.     every c := !cset(integer(cset(i))) do {     # get correct order & toss 0
  61.         every s ||:= (find(c,i) & c)            # get correct count
  62.         } 
  63.     
  64.     return s
  65. end 
  66.  
  67.  
  68. -- 
  69. Steve Wampler (swampler@gemini.edu)
  70.